//        Simulation einer Federschwingung
;
t:=0;                               ;//Starten zum Zeitpunkt t=0
y:=ya;                              ;//Anfangsauslenkung
 
repeat                              ;//Schleifenbeginn
  
  //Beginn der physikalischen Berechnungen
  ;
  F:=-k*y;                          ;//a,F Berechnung
  a:=F/m;

  if start__=1 then anfang:=1      ;//Abfrage der Ablauf-Taste
  if anfang=1 then                 ;//Berechnung erfolgt erst nach Bettigen der Ablauf-Taste
  begin
    v:=v+a*dt;                     ;//Berechnung der Geschwindigkeit
    y:=y+v*dt;                     ;//   -"-     des Ortes
    t:=t+dt;
  end;
  ausgabe (t, y, v, a);            ;//Angabe der Ausgabevariablen
until t>mt;